module Sample where

import Music

mRep :: Int -> Music -> Music
mRep n m = foldr (:+:) m $ take (n-1) $ cycle [m]

piece  = mRep 5 $ s1 :=: s

s = mRep 2 p :=: mEff

s1 = perc LowConga en [] :+: perc MuteHiConga en [] :+: perc LowConga en []

p = let p' = perc AcousticBassDrum qn [] in
    p' :+: qnr :+: hnr :+: wnr :+: p' :+: p'

mEff = mRep 4 $ perc Cowbell hn []
